1 IFX>.THEN10
2 POKE53280,.:POKE53281,.
3 PRINT"[147]"
4 PRINT" [215]ELCOME TO [196]UGAN'S [193]RT [196]EPOT..."
5 :
10 IFX=0THENX=1:LOAD"UNPACKER",8,1
20 IFX=1THENX=2:LOAD"BLOAD.O",8,1
30 :
40 BL=828:UNPACK=51456:HGR=51459
50 :
55 NP=5:DIM T$(NP),A$(NP),R$(NP)
57 FORX=1TONP:READT$(X),A$(X),R$(X):NEXT
60 GOSUB 50060: REM TITLE SCREEN
70 FORX=1TONP:GOSUB60000
80 PRINT"[154]"
82 PRINTSPC(19-LEN(T$(X))/2)""T$(X)"[146]"
84 PRINT""SPC(19-LEN(A$(X))/2)""A$(X)"[146]"
90 SYSBL,16384,R$(X)
92 :
94 IFPEEK(198)<>0THENGETA$:POKE198,0:IFA$="Q"ORA$="[209]"THENGOSUB10000
96 POKE249,224:POKE250,204
98 POKE251,0:POKE252,64
99 POKE253,0:POKE254,0:PRINT"[147]";:SYSUNPACK:SYSHGR
100 AG=3.34
110 FORDL=1TO1500:IFPEEK(198)=0THENNEXTDL:GOTO120
112 GETA$:IFA$="Q"ORA$="[209]"THENSYSHGR:GOSUB10000:SYSHGR
120 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
130 GOTO70
140 :
10000 REM A KEY WAS PRESSED
10005 POKE53281,1:POKE53280,5
10010 PRINT"[147][144] [193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?"
10020 POKE198,0:WAIT198,1:GETAG$
10030 IFAG$="Y"ORAG$="[217]"THEN30000
10040 RETURN
30000 REM QUIT
30010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
30020 IFER<>63THENPRINT"[147]":END
30030 LOAD"HELLO CONNECT",8
50000 REM DATA
,,
50010 DATA "[213]NDERWATER [211]CENE","[208]ATRICK [196]UGAN",UNDERWATER.SHP
50012 DATA "[205]ISSILE","[208]ATRICK [196]UGAN",MISSILE.SHP
50014 DATA "[205]ONKEY [198]ACE","[208]ATRICK [196]UGAN",MONKEY.SHP
50016 DATA "[208]LUM [194]OTTLE","[208]ATRICK [196]UGAN",BOTTLE.SHP
50020 DATA "[214]ISIT","[208]ATRICK [196]UGAN",VISIT.SHP
50060 REM TITLE SCREEN
50065 PRINT"[147]":POKE53281,1:POKE53280,1
50072 PRINT" [176]`````````````````[174]"
50082 PRINT" [221][204]OADSTAR [208]RESENTS[221][152] "
50092 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50102 PRINT" "
50112 PRINT
50122 PRINT" [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50132 PRINT" [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159] [221][152] "
50142 PRINT" [159][221] [221][196]UGAN'S [193]RT [196]EPOT[221][154] [159] [221][152] "
50152 PRINT" [159][221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159] [221][152] "
50162 PRINT" [159][221] [154] [159] [221][152] "
50172 PRINT" [159][221] [221][152][160]"
50182 PRINT" [159][221] [211]LIDE [211]HOW [208]RESENTER WRITTEN [221][152][160]"
50192 PRINT" [159][221] BY [193]LAN [199]ARDNER [221][152][160]"
50202 PRINT" [159][221] ([195]) 1987 [221][152][160]"
50204 PRINT" [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
50212 PRINT" "
50222 PRINT
50232 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50242 PRINT" [221] [193]LL PICTURES CREATED BY [221][152] "
50252 PRINT" [221] [208]ATRICK [196]UGAN [221][152] "
50272 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50282 PRINT" "
50292 :
50302 PRINT" [ pRESS ANY KEY TO START THE SHOW[160]]";
50312 PRINT"";
50314 POKE198,0:WAIT198,1:POKE198,0
50316 POKE53281,5:RETURN
59990 :
60000 :
60001 POKE53281,1:POKE53280,5
60005 PRINT"[147][146] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60010 PRINT" [221][204]OADSTAR IS PROUD TO PRESENT:[221][152] "
60020 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60030 PRINT" "
60040 PRINT
60050 PRINT" [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60060 PRINT" [221] [221][152] "
60070 PRINT" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] "
60080 PRINT" [150][221] [154][221] [221] [150] [221][152] "
60090 PRINT" [150][221] [154][221] CREATED BY [221] [150] [221][152] [146][160]"
60100 PRINT" [150][221] [154][221] [221] [150] [221][152] [146] [160]";
60110 PRINT" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] "
60120 PRINT" [150][221] [150] [221][152] "
60130 PRINT" [150][221] [221][152] "
60140 PRINT" [150][221] [221][152] "
60150 PRINT" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] [146][160]"
60160 PRINT" [150][221] [154][221] [195]OMING SOON TO A COMPUTER[221] [150] [221][152] [146][160]"
60170 PRINT" [150][221] [154][221] NEAR YOU. [221] [150] [221][152] [146][160]"
60180 PRINT" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] [146][160]"
60190 PRINT" [150][221] [150] [221][152] [146][160]"
60200 PRINT" [150][221] [221][152] "
60210 PRINT" [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60220 PRINT" "
60230 PRINT
60240 PRINT" [ pRESS 'q' TO EXIT ]";
60250 PRINT"";
60260 RETURN